home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / bugs / submenu / 00218.ls < prev    next >
Encoding:
Text File  |  1995-03-29  |  966 b   |  45 lines
  1. on mouseDown
  2.   global descriptions, setall
  3.   if setall = 1 then
  4.     exit
  5.   end if
  6.   if descriptions = 0 then
  7.     puppetSprite(15, 0)
  8.     updateStage()
  9.   end if
  10.   puppetSound("click" & random(5))
  11. end
  12.  
  13. on mouseUp
  14.   global selectedgame, mylevel, descriptions, fingerfood, setall
  15.   if setall = 1 then
  16.     exit
  17.   end if
  18.   set selectedgame to the clickOn - 4
  19.   if descriptions = 0 then
  20.     grablevel(selectedgame)
  21.     locatelevelbar(mylevel)
  22.     repeat while the soundBusy of 1
  23.       updateStage()
  24.     end repeat
  25.     set ptime to 15 + the timer
  26.     repeat while the timer < ptime
  27.       updateStage()
  28.     end repeat
  29.     go("game" & the clickOn - 4)
  30.   else
  31.     grablevel(selectedgame)
  32.     locatelevelbar(mylevel)
  33.     repeat while the soundBusy of 1
  34.       updateStage()
  35.     end repeat
  36.     if the puppet of sprite 26 = 1 then
  37.       puppetSprite(26, 0)
  38.       go("game" & fingerfood)
  39.     else
  40.       set fingerfood to the clickOn - 4
  41.       go("describe")
  42.     end if
  43.   end if
  44. end
  45.